(flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index e14ec47c2e086d4446400fcf5d7d3d15aad5028d..70fd05aaf378a603473c121785942dc0ca0f1273 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -413,8 +413,10 @@ property of the major mode name.")
 ;;*---------------------------------------------------------------------*/
 (defvar flyspell-mouse-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2])
-      #'flyspell-correct-word)
+    (if (featurep 'xemacs)
+       (define-key map [button2] #'flyspell-correct-word)
+      (define-key map [down-mouse-2] #'flyspell-correct-word)
+      (define-key map [mouse-2] 'undefined))
     map)
   "Keymap for Flyspell to put on erroneous words.")